home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / tools / czesc_2 / ir-master / install < prev    next >
Encoding:
Text File  |  1995-06-10  |  19.2 KB  |  658 lines
  1. ; Installationsskript für IR-Master 3.30
  2. ; $VER: IR-Master Install 3.30 (09.06.95)
  3. ; (c) 1995 Michael Watzl
  4.  
  5. (set version 3)
  6. (set revision 30)
  7. (set @app-name ("IR-Master %ld.%ld" version revision))
  8.  
  9. ; *********** Zuerst Strings sprachenabhängig initialisieren **
  10. (if (= @language "deutsch")
  11.     (
  12. ; //+ deutsche strings
  13.         (set @abort-button "Installation abrrechen!")
  14.         (set @error-msg    "Fataler Fehler!")
  15.         (set #welcome (cat
  16.              @app-name
  17.              "-Installation\n\n"
  18.              "Damit wird der IR-Master automatisch auf\n"
  19.              "Ihrer Festplatte installiert\n\n"
  20.              "IR-Master © 1993-1995 Jürgen Frank und Michael Watzl\n"
  21.              "All rights reserved."))
  22.  
  23.         (set #version_error
  24.             "\nSorry...\n\nDer IR-Master benötigt minestens\nAmiga-OS 2.04")
  25.         (set #cantuncompress
  26.             "Fehler beim Entpacken von ")
  27.         (set #uncompress
  28.             "Entpacke ")
  29.         (set #install
  30.             "Installiere ")
  31.         (set #toinstall
  32.             "installieren")
  33.         (set #whichdrawer
  34.             "Wo soll für den IR-Master ein Verzeichnis angelegt werden?")
  35.         (set #whichdrawer_help (cat
  36.             "Ein Verzeichnis namens 'IR-Master' wird dort "
  37.             "erzeugt. Dort wird der IR-Master nach der "
  38.             "Installation zu finden sein."))
  39.         (set #selectparts
  40.             "Welche Teile der Distribution sollen installiert werden?")
  41.         (set #selectparts_help (cat
  42.             "Wenn Sie genügend Platz auf Ihrer Festplatte haben, "
  43.             "sollten Sie alles anwählen.\n\n"
  44.             "Zum Betrieb ist es allerdings ausreichend, wenn Sie "
  45.             "nur 'IR-Master' anwählen.\n\n"
  46.  
  47.             "1. IR-Master\n"
  48.             "Das sind die beiden Programme IR-Editor und IR-Runner "
  49.             "mit den zugehörigen Libraries und dem Verzeichnis "
  50.             "Data/, welches die Piktogramme für die Toolbox enthält\n\n"
  51.  
  52.             "2. Aleitung zum IR-Master\n"
  53.             "Die Anleitung im Amiga-Guide- und DVI-Format in "
  54.             "deutsch und englisch.\n\n"
  55.  
  56.             "3. Beispielprojekte\n"
  57.             "Sie können den Beispielprojekten entnehmen, wie IR-Daten "
  58.             "dargestellt werden, oder andere Kniffe kennenlernen.\n\n"
  59.  
  60.             "4. Hintergrundgrafiken\n"
  61.             "Sie können Hintergrundgrafiken zum verschönern "
  62.             "Ihrer Projekte verwenden.\n\n"
  63.  
  64.             "5. ARexx-Beispiele\n"
  65.             "Ein paar kleine Deomstrationen, wie man den IR-Master "
  66.             "mit ARexx verwenden kann.\n\n"
  67.  
  68.             "6. Artwork\n"
  69.             "Piktogramme für Gadgets.\n\n"
  70.  
  71.             "7. Schaltpläne der Hardwares (Nur für registrierte User)\n"
  72.             "Die Schaltpläne der IR-Masterhardwares als IFF-Bilder.\n\n"))
  73.         (set #installmaster
  74.             "IR-Master installieren")
  75.         (set #installmaster_help (cat
  76.             "Dieser Installationsschritt installiert alle "
  77.             "für den reinen Betrieb des IR-Masters nötigen "
  78.             "Dateien in das von Ihnen gewählte Verzeichnis "
  79.             "Zudem werden noch zwei Libraries (req.library "
  80.             "und InfraRed.library) nach LIBS: installiert. "))
  81.         (set #libraries
  82.             "Bibliotheken")
  83.         (set #req.library_help (cat
  84.             "Die req.library wird vom IR-Editor gebraucht. "
  85.             "Sie sollten aber einen Patch installieren, der "
  86.             "die req.library in die reqtools.library umleitet. "
  87.             "(siehe Anleitung)."))
  88.         (set #infrared.library_help (cat
  89.             "Die InfraRed.library wird vom IR-Master und vom "
  90.             "IR-Runner verwendet, um IR-Kommandos zu senden. "))
  91.         (set #irmaster_help (cat
  92.             "IR-Editor dient zum Erstellen der Projekte. "
  93.             "IR-Runner ist das Laufzeitmodul."))
  94.         (set #askwbcolors
  95.             "Wieviele Farben verwenden Sie bei Ihrer Workbench?")
  96.         (set #askwbcolors_help (cat
  97.             "Die ToolBox-Piktogramme des IR-Editors "
  98.             "können durch andere ersetzt werden. "
  99.             "Für 4,8 und 16 Farben sind Beispiel-Daten vorhanden\n\n"
  100.             "Ohne diese Daten kann der IR-Editor nicht starten!"))
  101.         (set #docs
  102.             "Anleitung")
  103.         (set #docspattern
  104.             "(IR-MasterD.guide|IR-MasterD.DVI|LIZENZ)")
  105.         (set #guide
  106.             "IR-MasterD.guide")
  107.         (set #dvi
  108.             "IR-MasterD.DVI")
  109.         (set #examples
  110.             "Beispiel-Projekte")
  111.         (set #examples_help (cat
  112.             "An den Beispiel-Projekten kann man leicht "
  113.             "lernen, was man mit dem IR-Master alles "
  114.             "machen kann.\n"))
  115.         (set #backgrounds
  116.             "Hintergrundgrafiken")
  117.         (set #backgrounds_help (cat
  118.             "IR-Masterprojekte können als Hintergrundgrafik "
  119.             "ein IFF-Bild verwenden. Hier sind einige "
  120.             "Beispiele zusammengestellt."))
  121.         (set #arexx
  122.             "ARexx")
  123.         (set #arexx_help (cat
  124.             "Der IR-Runner hat einen ARexx-Port. Wie sie "
  125.             "diesen benutzen, können Sie anhand der "
  126.             "Beispiele sehen."))
  127.         (set #artwork
  128.             "Artwork")
  129.         (set #artwork_help (cat
  130.             "In diesem Verzeichnis werden Sie nach der Installation "
  131.             "ein paar Grafiken finden, die Sie als Gadgetgrafiken "
  132.             "im IR-Editor verwenden können."))
  133.         (set #schematics
  134.             "Baupläne")
  135.         (set #schematics_help (cat
  136.             "Wenn Sie IR-Master-Hardware nachbauen, oder "
  137.             "einfach mal ansehen wollen, so werden Sie die "
  138.             "Baupläne nach der Installation hier finden."))
  139.         (set #bye (cat
  140.              "\n\n\nViel Spaß mit dem IR-Master wünschen\n"
  141.              "Jürgen Frank und\n"
  142.              "Michael Watzl"))
  143.         (set #importand
  144.             "wichtig")
  145. ; //-
  146.     )
  147.     (
  148. ; //+ englische strings
  149.         (set #welcome (cat
  150.             @app-name
  151.             "-Installation\n\n"
  152.             "The IR-Master will automatically be\n"
  153.             "installed to your ard disk.\n\n"
  154.             "IR-Master © 1993-1995 Jürgen Frank und Michael Watzl\n"
  155.             "All rights reserved."))
  156.         (set #version_error
  157.             "\nSorry...\n\nIR-Master needs Amiga-OS 2.04 or better!")
  158.         (set #cantuncompress
  159.             "Can't uncompress ")
  160.         (set #uncompress
  161.             "Uncompress ")
  162.         (set #install
  163.             "Install ")
  164.         (set #toinstall
  165.             "installing ")
  166.         (set #whichdrawer
  167.             "Where should I place the drawer for IR-Master?")
  168.         (set #whichdrawer_help (cat
  169.             "A drawer named 'IR-Master' will be created. "
  170.             "In this drawer you will find the IR-Master "
  171.             "after the installation is finished."))
  172.         (set #selectparts
  173.             "Which parts of the distribution shoud be installed?")
  174.         (set #selectparts_help (cat
  175.             "If you have enough room on your hard disk, you "
  176.             "should select all parts.\n\n"
  177.             "To simply use the IR-Master it is enough to install "
  178.             "only 'IR-Master'\n\n"
  179.  
  180.             "1. IR-Master\n"
  181.             "This will install IR-Editor, IR-Runner, the "
  182.             "libraries and some essential data for the IR-Editor's "
  183.             "toolbox to your HD\n\n"
  184.  
  185.             "2. Documents\n"
  186.             "The documents as amigaguide guides and dvi files\n\n"
  187.  
  188.             "3. Examples\n"
  189.             "Some example projects for the IR-Master. Load them "
  190.             "with the IR-Editor or start them with the IR-Runner.\n\n"
  191.  
  192.             "4. Backgrounds\n"
  193.             "You may use iff pictures as backgrounss for your "
  194.             "projects. Here you will find some examples.\n\n"
  195.  
  196.             "5. ARexx examples\n"
  197.             "The IR-Runner has an ARexx port. If you want to know "
  198.             "how to use it, install this part and take a look "
  199.             "on this files.\n\n"
  200.  
  201.             "6. Artwork\n"
  202.             "Here you will find some icons for your project's gadgets.\n\n"
  203.  
  204.             "7. Schematics\n"
  205.             "If you want to rebuild the IR-Master's hardware "
  206.             "install this part, too."))
  207.         (set #installmaster
  208.             "Install IR-Master")
  209.         (set #installmaster_help (cat
  210.             "This step will install all files which are "
  211.             "essetial to run IR-Master. "
  212.             "This will be: IR-Editor, IR-Runner, libraries "
  213.             "and some icons for the IR-Editor's toolbox." ))
  214.         (set #libraries
  215.             "libraries")
  216.         (set #req.library_help (cat
  217.             "The req.library is used by the IR-Editor. "
  218.             "You should problably install a patch to "
  219.             "redicrect the calls to the better looking "
  220.             "reqtools.library (see documents for more)."))
  221.         (set #infrared.library_help (cat
  222.             "The InfraRed.library is used by IR-Editor and "
  223.             "IR-Runner to send the ir commands"))
  224.         (set #irmaster_help (cat
  225.             "Use the IR-Editor to construct your remotes and "
  226.             "the IR-Runner to launch them."))
  227.         (set #askwbcolors
  228.             "How many colors do you use on your workbench?")
  229.         (set #askwbcolors_help (cat
  230.             "The icons of the IR-Editor's toobox can be replaced. "
  231.             "Icon sets for 4, 8 and 16 colors are included. "
  232.             "Without this icons, the IR-Editor can't start."))
  233.         (set #docs
  234.             "Documentation")
  235.         (set #docspattern
  236.             "(IR-MasterE.guide|IR-MasterE.DVI|LICENCE)")
  237.         (set #guide
  238.             "IR-MasterE.guide")
  239.         (set #dvi
  240.             "IR-MasterE.DVI")
  241.         (set #examples
  242.             "Examples")
  243.         (set #examples_help (cat
  244.             "Load or start the examples. This will "
  245.             "help you building your own projects."))
  246.         (set #backgrounds
  247.             "Backgrounds")
  248.         (set #backgrounds_help (cat
  249.             "Projects can use iff pictures as background "
  250.             "graphics. Here you will find some examples."))
  251.         (set #arexx
  252.             "ARexx")
  253.         (set #arexx_help (cat
  254.             "The IR-Runner has an ARexx port. If you "
  255.             "want to learn about using it, take a look "
  256.             "on this scripts."))
  257.         (set #artwork
  258.             "Artwork")
  259.         (set #artwork_help
  260.             "Here you can find some icons for your project's gadgets." )
  261.         (set #schematics
  262.             "Hardware")
  263.         (set #schematics_help (cat
  264.             "If you want to construct IR-Master-hardware you "
  265.             "will find the schematics in this drawer."))
  266.         (set #bye (cat
  267.              "Jürgen Frank und\n"
  268.              "Michael Watzl\n\n"
  269.              "wish you a lot of fun with the IR-Master!"))
  270.         (set #importand
  271.             "important")
  272. ; //-
  273.     )
  274. )
  275.  
  276. ; *************************************************************
  277.  
  278.  
  279. (message #welcome)
  280. (complete 0)
  281.  
  282. ; Amiga-OS Versionscheck
  283. (if (< (/ (getversion) 65536) 37)
  284.     (abort #version_error)
  285. )
  286.  
  287.  
  288. ; ***********************************************
  289. ; Zielverzeichnis setzen und Verzeichnis erzeugen
  290. ; ***********************************************
  291.  
  292. (set ziel
  293.     (askdir
  294.         (prompt #whichdrawer )
  295.         (default "Work:")
  296.         (help   #whichdrawer_help )
  297.     )
  298. )
  299. (set @default-dest ziel )
  300. (set ziel (tackon ziel "IR-Master"))
  301. (makedir ziel (infos))
  302.  
  303. ; //+ Installationsauswahl
  304.  
  305. (if (exists("hardware.run"))
  306.     (set x
  307.         (askoptions
  308.             (prompt #selectparts)
  309.             (help   #selectparts_help)
  310.             (choices
  311.                     "IR-Master              (IR-Master)"
  312.                     "Anleitung              (Documents)"
  313.                     "Beispielprojekte       (Examples)"
  314.                     "Hintergrundgrafiken    (Backgrounds)"
  315.                     "ARexx-Beispiele        (ARexx-Examples)"
  316.                     "Artwork                (Artwork)"
  317.                     "Schaltpläne            (Schematics)" )
  318.             (default %1111111)
  319.         )
  320.     )
  321.     (set x
  322.         (askoptions
  323.             (prompt #selectparts )
  324.             (help   #selectparts_help)
  325.             (choices
  326.                     "IR-Master              (IR-Master)"
  327.                     "Anleitung              (Documents)"
  328.                     "Beispielprojekte       (Examples)"
  329.                     "Hintergrundgrafiken    (Backgrounds)"
  330.                     "ARexx-Beispiele        (ARexx-Examples)"
  331.                     "Artwork                (Artwork)" )
  332.             (default %1111111)
  333.         )
  334.     )
  335. )
  336.  
  337. (if (bitand x %0000001)(
  338. ; //+ Libs entpacken und installieren
  339.  
  340. (working (cat "\n\n" #uncompress #libraries))
  341. (set rc (run "libs.run t:"))
  342. (if (<> rc 0)
  343.     (abort (cat #cantuncompress #libraries))
  344. )
  345.  
  346. (copylib
  347.     (prompt (cat "\n\n" #install "req.library"))
  348.     (help   #req.library_help )
  349.     (source "T:libs/req.library")
  350.     (dest   "libs:")
  351.     (confirm "expert")
  352.     (nogauge)
  353. )
  354.  
  355. (copylib
  356.     (prompt (cat "\n\n" #install "InfraRed.library"))
  357.     (help   #infrared.library_help)
  358.     (source "T:libs/InfraRed.library")
  359.     (dest   "libs:")
  360.     (confirm "expert")
  361.     (nogauge)
  362. )
  363.  
  364. ; clean up
  365. (run "delete t:libs#? all quiet")
  366.  
  367. ; //-
  368. ; //+ Install IR-Master
  369.     (working (cat "\n\n" #uncompress "IR-Master"))
  370.     (set rc (run "ir-master.run t:"))
  371.     (if (<> rc 0)
  372.         (abort (cat #cantuncompress "IR-Master"))
  373.     )
  374.     (set rc (run "catalogs.run T:"))
  375.     (if (<> rc 0)
  376.         (abort (cat #cantuncompress "Locale" ))
  377.     )
  378.  
  379.     (copyfiles
  380.         (prompt (cat "\n\n" #install "IR-Master"))
  381.         (help   #irmaster_help)
  382.         (source "t:")
  383.         (dest ziel)
  384.         (choices "IR-Editor" "IR-Runner")
  385.         (infos)
  386.         (confirm "expert")
  387.     )
  388.  
  389.     (makedir (tackon ziel "catalogs"))
  390.     (copyfiles
  391.         (source "t:catalogs")
  392.         (dest (tackon ziel "catalogs"))
  393.         (all)
  394.         (nogauge)
  395.     )
  396.     (set y
  397.         (askchoice
  398.             (prompt "\n\n" #askwbcolors)
  399.             (help   #askwbcolors_help)
  400.             (choices "4" "8" ">= 16")
  401.         )
  402.     )
  403.     
  404.     (set farben (shiftleft 2 (+ y 1)))
  405.     (set name   (cat "data" farben))
  406.     (working (cat "\n\n" #uncompress "Toolbox" ))
  407.     (set rc (run (cat name ".run T:")))
  408.     (if (<> rc 0)
  409.         (abort (cat #cantuncompress "Toolbox"))
  410.     )
  411.     (working (cat "\n\n" #install "Toolbox"))
  412.     (makedir (tackon ziel "Data") )
  413.     (copyfiles
  414.         (source (cat "t:" name))
  415.         (dest (tackon ziel "data"))
  416.         (all)
  417.         (nogauge)
  418.     )
  419.     ; cleanup
  420.     (run "delete t:catalogs#? all quiet")
  421.     (run "delete t:data#? all quiet")
  422.     (run "delete t:IR-Editor#? all quiet")
  423.     (run "delete t:IR-Runner#? all quiet")
  424. ; //-
  425. ))
  426.  
  427. (complete 25 )
  428.  
  429. (if (bitand x %0000010)(
  430. ; //+ Install Documentation
  431.     (working (cat "\n\n" #uncompress #docs))
  432.     (set rc (run "docs.run t:"))
  433.     (if (<> rc 0)
  434.         (abort (cat #cantuncompress #docs ))
  435.     )
  436.  
  437.     (makedir (tackon ziel #docs ))
  438.     (copyfiles
  439.         (source "t:docs.info")
  440.         (dest ziel)
  441.         (newname (cat #docs ".info"))
  442.         (nogauge)
  443.     )
  444.  
  445.     (copyfiles
  446.         (prompt (cat "\n\n" #install #docs))
  447.         (help "")
  448.         (source "T:docs")
  449.         (dest (tackon ziel #docs))
  450.         (pattern #docspattern )
  451.         (infos)
  452.         (confirm "expert")
  453.     )
  454.  
  455.     ; tooltypes anpassen
  456.     (set tt "sys:utilities/more")
  457.     (if (exists( "sys:utilities/amigaguide" (noreq)))
  458.         (set tt "sys:utilities/amigaguide")
  459.     )
  460.     (if (exists( "sys:utilities/multiview" (noreq)))
  461.         (set tt "sys:utilities/multiview")
  462.     )
  463.  
  464.     (set docpath (tackon ziel #docs ))
  465.  
  466.     (tooltype
  467.         (dest (tackon docpath #guide ))
  468.         (setdefaulttool tt)
  469.         (noposition)
  470.     )
  471.     (tooltype
  472.         (dest (tackon docpath #dvi ))
  473.         (noposition)
  474.     )
  475.  
  476.     ; cleanup
  477.     (run "delete t:Docs#? all quiet")
  478. ; //-
  479. ))
  480.  
  481. (complete 40)
  482.  
  483. (if (bitand x %0000100)(
  484. ; //+ Install Beispielprojekte
  485.     (working (cat "\n\n" #uncompress #examples ))
  486.     (set rc (run "examples.run t:"))
  487.     (if (<> rc 0)
  488.         (abort (cat #cantuncompress #examples))
  489.     )
  490.  
  491.     (makedir (tackon ziel #examples ) )
  492.     (copyfiles
  493.         (source "t:examples.info")
  494.         (dest ziel)
  495.         (newname (cat #examples ".info"))
  496.         (nogauge)
  497.     )
  498.  
  499.     (copyfiles
  500.         (prompt (cat "\n\n" #install #examples ))
  501.         (help   #examples_help)
  502.         (source "t:Examples/")
  503.         (dest (tackon ziel #examples ))
  504.         (confirm "expert")
  505.         (pattern "(#?.irm|#?.iff")
  506.         (infos)
  507.     )
  508.     ; cleanup
  509.     (run "delete t:Examples#? all quiet")
  510.  
  511. ; //-
  512. ))
  513.  
  514. (complete 60)
  515.  
  516. (if (bitand x %0001000)(
  517. ; //+ Install Hintergrundgrafiken
  518.     (working (cat "\n\n" #uncompress #backgrounds))
  519.     (set rc (run "backgrounds.run t:"))
  520.     (if (<> rc 0)
  521.         (abort (cat #cantuncompress #backgrounds))
  522.     )
  523.  
  524.     (makedir (tackon ziel #backgrounds))
  525.     (copyfiles
  526.         (source "t:Backgrounds.info")
  527.         (dest ziel)
  528.         (newname (cat #backgrounds ".info"))
  529.         (nogauge)
  530.     )
  531.  
  532.     (copyfiles
  533.         (prompt (cat "\n\n" #install #backgrounds))
  534.         (help   #backgrounds_help )
  535.         (source "t:backgrounds/")
  536.         (dest (tackon ziel #backgrounds ))
  537.         (pattern "(#?.iff|#?.brush)")
  538.         (infos)
  539.         (confirm "expert")
  540.     )
  541.     ; cleanup
  542.     (run "delete t:Backgrounds#? all quiet")
  543. ; //-
  544. ))
  545.  
  546. (complete 80)
  547.  
  548. (if (bitand x %0010000)(
  549. ; //+ Install ARexx-Scripts
  550.     (working (cat "\n\n" #uncompress #arexx ))
  551.     (set rc (run "arexx.run t:"))
  552.     (if (<> rc 0)
  553.         (abort (cat #cantuncompress #arexx))
  554.     )
  555.  
  556.     (makedir (tackon ziel #arexx))
  557.     (copyfiles
  558.         (source "t:ARexx.info")
  559.         (dest ziel)
  560.         (newname (cat #arexx ".info"))
  561.         (nogauge)
  562.     )
  563.  
  564.     (copyfiles
  565.         (prompt (cat "\n\n" #install #arexx ))
  566.         (help   #arexx_help )
  567.         (source "t:ARexx/")
  568.         (dest (tackon ziel #arexx ))
  569.         (pattern "#?.rexx")
  570.         (infos)
  571.         (confirm "expert")
  572.         (nogauge)
  573.     )
  574.     ; cleanup
  575.     (run "delete t:ARexx#? all quiet")
  576. ; //-
  577. ))
  578.  
  579. (complete 85)
  580.  
  581. (if (bitand x %0100000)(
  582. ; //+ Install Artwork
  583.     (working (cat "\n\n" #uncompress #artwork))
  584.     (set rc (run "artwork.run t:"))
  585.     (if (<> rc 0)
  586.         (abort (cat #cantuncompress #artwork))
  587.     )
  588.  
  589.     (makedir (tackon ziel #artwork ) )
  590.     (copyfiles
  591.         (source "t:Artwork.info")
  592.         (dest ziel)
  593.         (newname (cat #artwork ".info"))
  594.         (nogauge)
  595.     )
  596.  
  597.     (copyfiles
  598.         (prompt (cat "\n\n" #install #artwork ))
  599.         (help   #artwork_help )
  600.         (source "t:Artwork/")
  601.         (dest (tackon ziel #artwork ))
  602.         (all)
  603.         (confirm "expert")
  604.         (nogauge)
  605.     )
  606.     ; cleanup
  607.     (run "delete t:Artwork#? all quiet")
  608. ; //-
  609. ))
  610.  
  611. (complete 90)
  612.  
  613. (if (bitand x %1000000)(
  614. ; //+ Install Schematics
  615.     (working (cat "\n\n" #uncompress #schematics ))
  616.     (set rc (run "hardware.run t:"))
  617.     (if (<> rc 0)
  618.         (abort (cat #cantuncompress #schematics ))
  619.     )
  620.  
  621.     (makedir (tackon ziel #schematics ))
  622.     (copyfiles
  623.         (source "t:Hardware.info")
  624.         (dest  ziel)
  625.         (newname (cat #schematics ".info"))
  626.         (nogauge)
  627.     )
  628.  
  629.     (copyfiles
  630.         (prompt (cat "\n\n" #install #schematics))
  631.         (help   #schematics_help)
  632.         (source "t:Hardware/")
  633.         (dest (tackon ziel #schematics))
  634.         (pattern "#?")
  635.         (infos)
  636.         (confirm "expert")
  637.     )
  638.     ; cleanup
  639.     (run "delete t:Hardware#? all quiet")
  640. ; //-
  641. ))
  642.  
  643. (complete 100)
  644.  
  645. ; //-
  646. ; //+ Bye Bye
  647. (message #bye )
  648. (if (exists "sys:utilities/more" )
  649.     (set tdisplay "sys:utilities/more ")
  650.     ; else
  651.     (set tdisplay "c:type >con:0/0/640/400/Information/CLOSE/WAIT ")
  652. 1)
  653. (run (cat tdisplay #importand ))
  654. ; //-
  655.  
  656. (exit)
  657.  
  658.